home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Tele / C / Comet2.1.3.cpt / Comet / tninit.asm < prev    next >
Assembly Source File  |  1990-06-13  |  469b  |  45 lines
  1.  
  2.         public    _A5init
  3.         public    _getmyA5
  4.         public    _setA5
  5.     public  _int_off
  6.     public  _int_on
  7.  
  8.     bss    int_save,4  
  9.  
  10.  
  11. cseg
  12.  
  13. _A5init
  14.         lea        aGlobal,a0
  15.         move.l    a5,(a0)
  16.         rts
  17.  
  18.  
  19. _getmyA5
  20.         move.l    a5,d0                    ; return old a5 (C)
  21.         move.l    aGlobal,a5
  22.         rts
  23.  
  24. _setA5
  25.         move.l    4(a7),a5
  26.         rts
  27.  
  28. aGlobal
  29.     dc.l    $0
  30.     
  31. _int_off:
  32.         move.w    sr,d0
  33.         andi.w    #$600,d0
  34.         move.w    d0,int_save
  35.         ori.w    #$600,sr
  36.         rts
  37.  
  38. _int_on:
  39.         move.w    sr,d0
  40.         andi.w    #$7077,d0
  41.         or.w    int_save,d0
  42.         move.w    d0,sr
  43.         rts
  44. end
  45.